home *** CD-ROM | disk | FTP | other *** search
/ Interplay's Learn to Program Basic (Review Copy) / Learn to Program Basic Review Copy (Interplay)(June 23, 1998).ISO / pc / ltpbasic / refxmpl / boolean.bas < prev    next >
BASIC Source File  |  1998-04-07  |  226b  |  13 lines
  1. CLS
  2. Print "Draw a rectangle"
  3. Input "Enter a width ",width
  4. Input "Enter a height ",height
  5.  
  6. Rem Check both width and height
  7. If width < 10 OR height < 10 Then
  8. Print "That's too small"
  9. EndIf
  10.  
  11. Rect 100,100 to 100+width,100+height
  12.  
  13.